home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / S / CUCDPrefs.mrx < prev    next >
Text File  |  1998-03-19  |  6KB  |  148 lines

  1. /* Preferences editor for CU Amiga CDs */
  2.  
  3. VerStr = '$VER: CUCDprefs 1.1 (21.7.97) Neil Bothwick'
  4. VerStr = subword(VerStr,2)
  5.  
  6. options results
  7.  
  8. CmdHelp = '"Command for this type of file"'
  9. ArgHelp = '"Arguments for this command\nThe filename will be added to the end.\nUse %s to include the filename somewhere else."'
  10. Menuitem_Shortcut = 0x80422030
  11. Application_AboutMUI = 0x8042d21d
  12. Application_OpenConfigWindow = 0x804299ba
  13. Group_SameHeight = 0x8042037e
  14. Group_Columns = 0x8042f416
  15.  
  16. address CDPREFS
  17.  
  18. monitor error 'CON:0/0/600/180/CDPrefs/CLOSE/AUTO'
  19.  
  20. window ID PAGE title '"CU Amiga CD preferences"' command 'quit' port CDPREFS
  21. /* ;;; Menus */
  22.     menu ID PROJM label 'Project'
  23.         item ID ABOUM command '":rexxc/rx CUCD:S/CUCDPrefs.rexx ABOUT"' port COMMAND ATTRS Menuitem_Shortcut '"?"' label 'About'
  24.         item command '"method 'Application_AboutMUI' 0"' port CDPREFS label 'About MUI'
  25.         menu ID SETTM label 'Settings'
  26.             item command '"method 'Application_OpenConfigWindow'"' port CDPREFS label 'MUI...'
  27.             endmenu
  28.         item ID QUITM command 'quit' port CDPREFS ATTRS Menuitem_Shortcut 'Q' label 'Quit'
  29.         endmenu
  30.     menu ID EDITM label 'Edit'
  31.         item ID RESTM command '"CUCD:rexxc/rx CUCD:S/CUCDprefs.rexx RESTORE"' port COMMAND ATTRS Menuitem_Shortcut 'D' label 'Restore to Defaults'
  32.         item ID LASTM command '"CUCD:rexxc/rx CUCD:S/CUCDprefs.rexx LOAD"' port COMMAND ATTRS Menuitem_Shortcut 'L' label 'Last saved'
  33.         endmenu
  34. ;;;
  35.     group id TABS REGISTER LABELS 'Info,Images,Sounds,Other'
  36. /* ;;; Infos */
  37.         group
  38.             view file 'CUCDprefs.txt'
  39.             endgroup
  40. ;;;
  41. /* ;;; Images */
  42.         group ATTRS Group_Columns 3
  43.             label DOUBLE LEFT '\033b\033uFiletype'
  44.             label DOUBLE LEFT '\033b\033uCommand'
  45.             label DOUBLE LEFT '\033b\033uArguments'
  46.             label DOUBLE LEFT 'IFF Picture'
  47.                 popasl ID IFF0 help '"Command to view IFF pictures"'
  48.                 string ID IFF1 help ArgHelp
  49.             label DOUBLE LEFT 'GIF Picture'
  50.                 popasl ID GIF0 help '"Command to view GIF pictures"'
  51.                 string ID GIF1 help ArgHelp
  52.             label DOUBLE LEFT 'JPEG Picture'
  53.                 popasl ID JPG0 help '"Command to view JPEG pictures"'
  54.                 string ID JPG1 help ArgHelp
  55.             label DOUBLE LEFT 'IFF Anim'
  56.                 popasl ID ANM0 help '"Command to view IFF animations"'
  57.                 string ID ANM1 help ArgHelp
  58.             label DOUBLE LEFT 'MPEG Video'
  59.                 popasl ID MPG0 help '"Command to view MPEG video"'
  60.                 string ID MPG1 help ArgHelp
  61.             space
  62.             endgroup
  63. ;;;
  64. /* ;;; Sounds */
  65.         group ATTRS Group_Columns 3
  66.             label DOUBLE LEFT '\033b\033uFiletype'
  67.             label DOUBLE LEFT '\033b\033uCommand'
  68.             label DOUBLE LEFT '\033b\033uArguments'
  69.             label DOUBLE LEFT 'IFF Sample'
  70.                 popasl ID SVX0 help '"Command to play IFF samples"'
  71.                 string ID SVX1 help ArgHelp
  72.             label DOUBLE LEFT 'WAV Sample'
  73.                 popasl ID WAV0 help '"Command to play WAV samples"'
  74.                 string ID WAV1 help ArgHelp
  75.             label DOUBLE LEFT 'S3M Module'
  76.                 popasl ID S3M0 help '"Command to play S3M modules"'
  77.                 string ID S3M1 help ArgHelp
  78.             label DOUBLE LEFT 'XM Module'
  79.                 popasl ID XMM0 help '"Command to play XM modules"'
  80.                 string ID XMM1 help ArgHelp
  81.             label DOUBLE LEFT 'MED Module'
  82.                 popasl ID MED0 help '"Command to play OctaMED modules"'
  83.                 string ID MED1 help ArgHelp
  84.             label DOUBLE LEFT 'DBM Module'
  85.                 popasl ID DBM0 help '"Command to play DigiBooster modules"'
  86.                 string ID DBM1 help ArgHelp
  87.             label DOUBLE LEFT 'Other Module'
  88.                 popasl ID MOD0 help '"Command to play other modules"'
  89.                 string ID MOD1 help ArgHelp
  90.             label DOUBLE LEFT 'MPEG Audio'
  91.                 popasl ID MP30 help '"Command to play MPEG audio"'
  92.                 string ID MP31 help ArgHelp
  93.             label DOUBLE LEFT 'MIDI'
  94.                 popasl ID MID0 help '"Command to play midi files"'
  95.                 string ID MID1 help ArgHelp
  96.             space
  97.             endgroup
  98. ;;;
  99. /* ;;; Others */
  100.         group ATTRS Group_Columns 3
  101.             label DOUBLE LEFT '\033b\033uFiletype'
  102.             label DOUBLE LEFT '\033b\033uCommand'
  103.             label DOUBLE LEFT '\033b\033uArguments'
  104.             label DOUBLE LEFT 'AmigaGuide'
  105.                 popasl ID AGD0 help '"Command to view AmigaGuide documents"'
  106.                 string ID AGD1 help ArgHelp
  107.             label DOUBLE LEFT 'HTML'
  108.                 popasl ID HTM0 help '"Command to view HTML documents"'
  109.                 string ID HTM1 help ArgHelp
  110.             label DOUBLE LEFT 'LhA archive'
  111.                 popasl ID LHA0 help '"Command to list LhA archives"'
  112.                 string ID LHA1 help ArgHelp
  113.             label DOUBLE LEFT 'Default'
  114.                 popasl ID DEF0 help '"Command to show all other file types"'
  115.                 string ID DEF1 help ArgHelp
  116.             space
  117.             endgroup
  118.  
  119. ;;;
  120.     endgroup
  121. /* ;;; Buttons */
  122.     group HORIZ
  123.         button ID SAVE   command '":rexxc/rx CUCD:S/CUCDPrefs.rexx SAVE"' port COMMAND help '"Save the settings to\nyour hard drive"' label 'Save'
  124.         button ID USE    command '":rexxc/rx CUCD:S/CUCDPrefs.rexx USE"' port COMMAND help '"Use the settings for this session"' label 'Use'
  125.         button ID CANCEL command 'quit' port CDPREFS help '"Exit without changing the settings"' label 'Cancel'
  126.         endgroup
  127. ;;;
  128.     endwindow
  129.  
  130. address command 'CUCD:rexxc/rx CUCD:S/CUCDprefs.rexx READ'
  131. getvar CfgVersion
  132. if result ~= '# IDer Prefs file - created by CUCD prefs' then call ExitMsg('Your IDer preferences file was not created by this program.\nYou will need to edit it as detailed in the IDer documentation.\nA copy of this is in CUCD:CDSupport/IDer')
  133.  
  134. exit
  135.  
  136. ExitMsg:
  137.     parse arg msg
  138.     request title '"CU Amiga CD preferences"' gadgets '"OK"' string msg
  139.     quit
  140.     exit
  141.  
  142. /* ;;; Show about requester */
  143. About:
  144.     request id ABOUR title '"CU Amiga CD preferences"' gadgets '"OK"' string VerStr'\nCreated using MUIRexx 3.0'
  145.     return
  146. ;;;
  147.  
  148.